home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Gold - The Optical BBS / Wildcat Gold - The Optical BBS (The Golden ROM Series)(Volume 4 Number 1)(The Digital Publishing Company)(1992).ISO / sdn / ca28_3a.sdn / GENIE.CMD < prev    next >
OS/2 REXX Batch file  |  1989-10-03  |  2KB  |  44 lines

  1. ; ----- GEnie: Dial GEnie and connect (logon)
  2. ; ----------------------------------------------------------------
  3. ;    Note: This script expects dialing directory entry #4 to be
  4. ;    a General Electric direct-dial number.    Telenet or other
  5. ;    carrier access (if available) requires different scripting.
  6. ; ----------------------------------------------------------------
  7. ;    Note: This script uses a LOGON file prepared by MKLOGON,
  8. ;    if one is available.
  9. ; ----------------------------------------------------------------
  10. ;
  11. ;    Dial GEnie direct
  12. ;
  13.     LEGEND " Dialing GEnie direct"
  14.     DEFTIME "60"            ; Wait 60 seconds for an incoming string
  15.     IF NOT LINKED        ; If not from alt-d
  16.        RESET        ; Reset defaults only if not linked
  17.        DIAL "4"             ; Call dial dir entry number 4 (GEnie)
  18.        IF FAILED        ; IF esc out
  19.           EXIT        ; terminate script
  20.           ENDIF        ; Endif failed
  21.        ENDIF        ; End test if linked
  22.  
  23.     SET BSUPPRESS ON    ; Turn on blank line suppression
  24.     SET MASK ON        ; Turn on high bit mask
  25.     SET CDISPLAY OFF    ; Ctl char display
  26.     SET DUPLEX HALF     ; Turn echo on
  27.  
  28.     PAUSE "3"               ; Wait for the modem to settle down
  29.     TRANSMIT "hhh"          ; Transmit
  30.     WAITFOR "U#="           ; Wait for the 'USER ID' prompt
  31. ;
  32. ;    If we have a GENLOGON file, use it
  33. ;
  34.     SET TTHRU OFF        ; Let psw be typed
  35.     IF ISSCFILE "GENLOGON"
  36.        FCALL "GENLOGON"
  37.     ELSE
  38.        MESSAGE "^MEnter ID,password for GEnie:"
  39.        MGET S0        ; Get ID/psw
  40.        TRANSMIT S0        ; Transmit ID/psw
  41.        TRANSMIT "^M"        ; .. and a final c/r
  42.        Alarm        ; Sound alarm
  43.        ENDIF
  44.